home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / os2 / quakinst.zip / makeobj.cmd < prev    next >
OS/2 REXX Batch file  |  1996-07-02  |  5KB  |  158 lines
  1. /* Quake OS/2 Warp WorkPlace Shell installation script        */
  2. /* First Draft - series C                    */
  3. /* duanec@ibm.net   Duane Chamblee             dAc0696    */
  4. /*--------------------------------------------------------------*/
  5. /*   I've thrown in some Icons here, just as place fillers    */
  6. /*                                */
  7. /*-----------------------INSTALLATION---------------------------*/
  8. /*  Copy all these files to the directory where QUAKE is    */
  9. /* installed. Type(or double click) MAKEOBJ.CMD            */
  10.  
  11.  
  12. /* Load OS/2 REXX Utilities.                    */
  13. Call RxFuncAdd 'SysLoadFuncs','REXXUTIL','SysLoadFuncs';
  14. Call SysLoadFuncs;
  15.  
  16. /* Get source directory (path to .CMD)                */
  17. parse source . . CMDname
  18. CMDdir=FILESPEC('D',CMDname)FILESPEC('P',CMDname)
  19.  
  20. /* Check for existance of required file(key) */
  21.   rc=SysFileTree(CMDdir'QUAKE.EXE',Pres)
  22.  
  23. if Pres.0=0 then do
  24.     Say 'Make sure all the .ICO and .CMD files are placed'
  25.     Say 'in the same directory that QUAKE was installed.'
  26.     '@pause'
  27.     exit
  28.     End
  29.  
  30. Say 'Giving home directory it''s new icon.'
  31. /* Strip the trailing '\' from the path                */
  32. tempName=LEFT(CMDdir,LENGTH(CMDdir)-1)
  33. say tempName
  34. rc=SysSetObjectData(tempName,'OBJECTID=<QUAKE_HOME>;'||,
  35.           'ICONFILE='CMDdir'Home.ICO;'||,
  36.       'ICONNFILE=1,'CMDdir'HomeO.ICO;')
  37.  
  38. Say ''
  39. Say 'Creating Quake Desktop folder...'
  40. classname='WPFolder'
  41. title    ='QUAKE'
  42. location ='<WP_DESKTOP>'
  43. setup    ='OBJECTID=<QUAKE_DESKTOP>;'||,
  44.           'ALWAYSSORT=YES;'||,
  45.           'ICONFILE='CMDdir'\Folder.ICO;'||,
  46.       'ICONNFILE=1,'CMDdir'\FolderO.ICO;'
  47. Call BldObj
  48.  
  49. /* Open Desktop Folder, twice for foreground            */
  50. Call SysSetObjectData  '<QUAKE_DESKTOP>', 'OPEN=DEFAULT'
  51. Call SysSetObjectData  '<QUAKE_DESKTOP>', 'OPEN=DEFAULT'
  52.  
  53. Say 'Creating Quake Application Object...'
  54. classname='WPProgram'
  55. title    ='QUAKE'
  56. location ='<QUAKE_DESKTOP>'
  57. setup    ='OBJECTID=<QUAKE_APP>;'||,
  58.           'EXENAME='CMDdir'QUAKE.EXE;'||,
  59.       'PARAMETERS=%;'||,
  60.           'STARTUPDIR='CMDdir';'||,
  61.           'PROGTYPE=VDM;'||,
  62.           'ICONFILE='CMDdir'\QUAKE.ICO;'||,
  63.       'SET DOS_DEVICE=;' ||,
  64.       'SET DOS_HIGH=0;' ||,
  65.       'SET DOS_BACKGROUND_EXECUTION=0;' ||,
  66.       'SET DPMI_MEMORY_LIMIT=16;' ||,
  67.       'SET SESSION_PRIORITY=31;' ||,
  68.       'SET DPMI_DOS_API=ENABLED;' ||,
  69.       'SET VIDEO_ROM_EMULATION=0;' ||,
  70.       'SET VIDEO_8514A_XGA_IOTRAP=0;'
  71. Call BldObj
  72.  
  73. /* Apply icons to shadowed files */
  74. call SysSetObjectData CMDdir'README.TXT','ICONFILE='CMDdir'readme.ico;'
  75. call SysSetObjectData CMDdir'HELP.TXT','ICONFILE='CMDdir'help.ico;'
  76. call SysSetObjectData CMDdir'TECHINFO.TXT','ICONFILE='CMDdir'techinfo.ico;'
  77. call SysSetObjectData CMDdir'MANUAL.TXT','ICONFILE='CMDdir'manual.ico;'
  78.  
  79. Say 'Creating Shadow of README.TXT...'
  80. classname='WPShadow'
  81. title    ='Read Me!!'
  82. location ='<QUAKE_DESKTOP>'
  83. setup    ='SHADOWID='CMDdir'README.TXT;'||,
  84.       'OBJECTID=<QUAKE_README>;'
  85. Call BldObj
  86.  
  87. Say 'Creating Shadow of HELP.TXT...'
  88. classname='WPShadow'
  89. title    ='Help file'
  90. location ='<QUAKE_DESKTOP>'
  91. setup    ='SHADOWID='CMDdir'HELP.TXT;'||,
  92.       'OBJECTID=<QUAKE_HELP>;'
  93. Call BldObj
  94.  
  95. Say 'Creating Shadow of TECHINFO.TXT...'
  96. classname='WPShadow'
  97. title    ='Tech.Info.'
  98. location ='<QUAKE_DESKTOP>'
  99. setup    ='SHADOWID='CMDdir'TECHINFO.TXT;'||,
  100.       'OBJECTID=<QUAKE_TECHINFO>;'
  101. Call BldObj
  102.  
  103. Say 'Creating Shadow of SLICNSE.TXT...'
  104. classname='WPShadow'
  105. title    ='Software License'
  106. location ='<QUAKE_DESKTOP>'
  107. setup    ='SHADOWID='CMDdir'SLICNSE.TXT;'||,
  108.       'OBJECTID=<QUAKE_SLICNSE>;'
  109. Call BldObj
  110.  
  111. Say 'Creating Shadow of LICINFO.TXT...'
  112. classname='WPShadow'
  113. title    ='License Info'
  114. location ='<QUAKE_DESKTOP>'
  115. setup    ='SHADOWID='CMDdir'LICINFO.TXT;'||,
  116.       'OBJECTID=<QUAKE_LICINFO>;'
  117. Call BldObj
  118.  
  119. Say 'Creating Shadow of MANUAL.TXT...'
  120. classname='WPShadow'
  121. title    ='Manual'
  122. location ='<QUAKE_DESKTOP>'
  123. setup    ='SHADOWID='CMDdir'MANUAL.TXT;'||,
  124.       'OBJECTID=<QUAKE_MANUAL>;'
  125. Call BldObj
  126.  
  127. Say 'Creating Shadow of ORDER.TXT...'
  128. classname='WPShadow'
  129. title    ='ordering'
  130. location ='<QUAKE_DESKTOP>'
  131. setup    ='SHADOWID='CMDdir'ORDER.TXT;'||,
  132.       'OBJECTID=<QUAKE_ORDER>;'
  133. Call BldObj
  134.  
  135.  
  136. /* Open Readme, twice for foreground                */
  137. Call SysSetObjectData  '<QUAKE_README>', 'OPEN=DEFAULT'
  138. Call SysSetObjectData  CMDdir'os2Read.txt', 'OPEN=DEFAULT'
  139.  
  140. Exit
  141.  
  142. BldObj:
  143.  
  144. /*The basic call is listed next.                                           */
  145. /*rc=SysCreateObject(classname, title, location <,setup>, <,duplicateflag>)*/
  146.  
  147. result = SysCreateObject(classname, title, location, setup, 'U')
  148.  
  149. If result \= 1 Then 
  150.    Do
  151.       say title'...   Not created! Return code='result
  152.       pause
  153.    End
  154.  
  155. Say '';
  156. Return
  157.  
  158.